Digital Competence Insights
  • Dimensions
    • Strategic Information
    • Critical Information
    • Netiquette
    • Digital Content Creation
    • Safety
    • Digital Health
    • Green Digital
    • Digital Problem Solving
    • Transactional
    • AI
    • Gen AI
  • Skills
  • Performance
  • Knowledge
  • Highlights
  • About

Green Digital

THIS IS A MOCKUP VERSION PLEASE DO NOT CITE

Sustainable/Green Digital Skills focus on environmentally conscious technology use: reducing energy consumption, buying sustainable devices, recycling electronics, and understanding the environmental impact of digital activities.

Green Digital Skills

ADD TEXT BEFORE TABSET

  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3

Green Knowledge

Sustainable/Green Digital Skills focus on environmentally conscious technology use: reducing energy consumption, buying sustainable devices, recycling electronics, and understanding the environmental impact of digital activities.

The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.
  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2

Green Performance

ADD TEXT BEFORE TABSET

  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
Back to top
Source Code
---
title: "{{< iconify ph recycle-fill >}} Green Digital"
format: html
---

```{r}
#| include: false
library(dashboardr)
```

**THIS IS A MOCKUP VERSION PLEASE DO NOT CITE**

**Sustainable/Green Digital Skills** focus on environmentally conscious technology use: reducing energy consumption, buying sustainable devices, recycling electronics, and understanding the environmental impact of digital activities.

```{r setup}
#| echo: false
#| warning: false
#| message: false
#| error: false
#| results: 'hide'

# Load required libraries
library(dashboardr)
library(dplyr)
library(highcharter)

# Global chunk options
knitr::opts_chunk$set(
  echo = FALSE,
  warning = FALSE,
  message = FALSE,
  error = FALSE,
  fig.width = 12,
  fig.height = 8,
  dpi = 300
)

# Load data from dataset_4014obs.rds
data <- readRDS('dataset_4014obs.rds')

# Data summary
cat('Dataset loaded:', nrow(data), 'rows,', ncol(data), 'columns\n')

# Create filtered datasets
# Each filter is applied once and reused across visualizations

data_filtered_984a0efe <- data %>% dplyr::filter(wave == 1)
data_filtered_4af682fd <- data %>% dplyr::filter(wave == 2)

```

## {{< iconify ph lightning-fill >}} Green Digital Skills


ADD TEXT BEFORE TABSET


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r green-wave1-overall-2}
# Sustainable/Green Digital Skills
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(SEnv1, SEnv2, SEnv3),
  title = "Sustainable/Green Digital Skills",
  questions = c("SEnv1", "SEnv2", "SEnv3"),
  question_labels = c("I know how to reduce the battery use of a phone or computer.", "I know how I can buy a phone or computer in a 'green' or sustainable way.", "I know how to have a phone or computer recycled."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r green-wave1-age-item1-2}
# I know how to reduce the battery use of a phone or computer.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SEnv1),
  title = "I know how to reduce the battery use of a phone or computer.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SEnv1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r green-wave1-age-item2-2}
# I know how I can buy a phone or computer in a 'green' or sustainable way.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SEnv2),
  title = "I know how I can buy a phone or computer in a 'green' or sustainable way.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SEnv2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r green-wave1-age-item3-2}
# I know how to have a phone or computer recycled.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SEnv3),
  title = "I know how to have a phone or computer recycled.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SEnv3"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r green-wave1-gender-item1-2}
# I know how to reduce the battery use of a phone or computer.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SEnv1),
  title = "I know how to reduce the battery use of a phone or computer.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SEnv1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r green-wave1-gender-item2-2}
# I know how I can buy a phone or computer in a 'green' or sustainable way.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SEnv2),
  title = "I know how I can buy a phone or computer in a 'green' or sustainable way.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SEnv2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r green-wave1-gender-item3-2}
# I know how to have a phone or computer recycled.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SEnv3),
  title = "I know how to have a phone or computer recycled.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SEnv3"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r green-wave1-edu-item1-2}
# I know how to reduce the battery use of a phone or computer.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SEnv1),
  title = "I know how to reduce the battery use of a phone or computer.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SEnv1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r green-wave1-edu-item2-2}
# I know how I can buy a phone or computer in a 'green' or sustainable way.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SEnv2),
  title = "I know how I can buy a phone or computer in a 'green' or sustainable way.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SEnv2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r green-wave1-edu-item3-2}
# I know how to have a phone or computer recycled.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SEnv3),
  title = "I know how to have a phone or computer recycled.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SEnv3"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r green-wave2-overall-2}
# Sustainable/Green Digital Skills
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(SEnv1, SEnv2, SEnv3),
  title = "Sustainable/Green Digital Skills",
  questions = c("SEnv1", "SEnv2", "SEnv3"),
  question_labels = c("I know how to reduce the battery use of a phone or computer.", "I know how I can buy a phone or computer in a 'green' or sustainable way.", "I know how to have a phone or computer recycled."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r green-wave2-age-item1-2}
# I know how to reduce the battery use of a phone or computer.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SEnv1),
  title = "I know how to reduce the battery use of a phone or computer.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SEnv1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r green-wave2-age-item2-2}
# I know how I can buy a phone or computer in a 'green' or sustainable way.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SEnv2),
  title = "I know how I can buy a phone or computer in a 'green' or sustainable way.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SEnv2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r green-wave2-age-item3-2}
# I know how to have a phone or computer recycled.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SEnv3),
  title = "I know how to have a phone or computer recycled.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SEnv3"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r green-wave2-gender-item1-2}
# I know how to reduce the battery use of a phone or computer.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SEnv1),
  title = "I know how to reduce the battery use of a phone or computer.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SEnv1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r green-wave2-gender-item2-2}
# I know how I can buy a phone or computer in a 'green' or sustainable way.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SEnv2),
  title = "I know how I can buy a phone or computer in a 'green' or sustainable way.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SEnv2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r green-wave2-gender-item3-2}
# I know how to have a phone or computer recycled.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SEnv3),
  title = "I know how to have a phone or computer recycled.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SEnv3"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r green-wave2-edu-item1-2}
# I know how to reduce the battery use of a phone or computer.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SEnv1),
  title = "I know how to reduce the battery use of a phone or computer.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SEnv1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r green-wave2-edu-item2-2}
# I know how I can buy a phone or computer in a 'green' or sustainable way.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SEnv2),
  title = "I know how I can buy a phone or computer in a 'green' or sustainable way.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SEnv2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r green-wave2-edu-item3-2}
# I know how to have a phone or computer recycled.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SEnv3),
  title = "I know how to have a phone or computer recycled.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SEnv3"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r green-overtime-overall-item1-2}
# I know how to reduce the battery use of a phone or computer.
result <- create_timeline(
  data = data,
  title = "I know how to reduce the battery use of a phone or computer.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "SEnv1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r green-overtime-overall-item2-2}
# I know how I can buy a phone or computer in a 'green' or sustainable way.
result <- create_timeline(
  data = data,
  title = "I know how I can buy a phone or computer in a 'green' or sustainable way.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "SEnv2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r green-overtime-overall-item3-2}
# I know how to have a phone or computer recycled.
result <- create_timeline(
  data = data,
  title = "I know how to have a phone or computer recycled.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "SEnv3"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r green-overtime-age-item1-2}
# I know how to reduce the battery use of a phone or computer.
result <- create_timeline(
  data = data,
  title = "I know how to reduce the battery use of a phone or computer.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SEnv1",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r green-overtime-age-item2-2}
# I know how I can buy a phone or computer in a 'green' or sustainable way.
result <- create_timeline(
  data = data,
  title = "I know how I can buy a phone or computer in a 'green' or sustainable way.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SEnv2",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r green-overtime-age-item3-2}
# I know how to have a phone or computer recycled.
result <- create_timeline(
  data = data,
  title = "I know how to have a phone or computer recycled.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SEnv3",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r green-overtime-gender-item1-2}
# I know how to reduce the battery use of a phone or computer.
result <- create_timeline(
  data = data,
  title = "I know how to reduce the battery use of a phone or computer.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SEnv1",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r green-overtime-gender-item2-2}
# I know how I can buy a phone or computer in a 'green' or sustainable way.
result <- create_timeline(
  data = data,
  title = "I know how I can buy a phone or computer in a 'green' or sustainable way.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SEnv2",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r green-overtime-gender-item3-2}
# I know how to have a phone or computer recycled.
result <- create_timeline(
  data = data,
  title = "I know how to have a phone or computer recycled.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SEnv3",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r green-overtime-edu-item1-2}
# I know how to reduce the battery use of a phone or computer.
result <- create_timeline(
  data = data,
  title = "I know how to reduce the battery use of a phone or computer.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SEnv1",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r green-overtime-edu-item2-2}
# I know how I can buy a phone or computer in a 'green' or sustainable way.
result <- create_timeline(
  data = data,
  title = "I know how I can buy a phone or computer in a 'green' or sustainable way.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SEnv2",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r green-overtime-edu-item3-2}
# I know how to have a phone or computer recycled.
result <- create_timeline(
  data = data,
  title = "I know how to have a phone or computer recycled.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SEnv3",
  group_var = "Education"
)

result
```


:::


:::


:::

## {{< iconify ph book-open-fill >}} Green Knowledge


**Sustainable/Green Digital Skills** focus on environmentally conscious technology use: reducing energy consumption, buying sustainable devices, recycling electronics, and understanding the environmental impact of digital activities.

```{r, echo=FALSE, message=FALSE, warning=FALSE}
create_blockquote("The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.", preset = "question")
```


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r kgreen-wave1-overall-2}
# 
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(KEnv2RC, KEnv3RC),
  title = "",
  questions = c("KEnv2RC", "KEnv3RC"),
  question_labels = c("Phones contain materials that mineworkers extract from mines.", "The amount of data and WiFi you use does not affect CO2-emissions or the climate."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kgreen-wave1-age-item1-2}
# Phones contain materials that mineworkers extract from mines.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KEnv2RC),
  title = "Phones contain materials that mineworkers extract from mines.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "KEnv2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kgreen-wave1-age-item2-2}
# The amount of data and WiFi you use does not affect CO2-emissions or the climate.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KEnv3RC),
  title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "KEnv3RC"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kgreen-wave1-gender-item1-2}
# Phones contain materials that mineworkers extract from mines.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KEnv2RC),
  title = "Phones contain materials that mineworkers extract from mines.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "KEnv2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kgreen-wave1-gender-item2-2}
# The amount of data and WiFi you use does not affect CO2-emissions or the climate.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KEnv3RC),
  title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "KEnv3RC"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kgreen-wave1-edu-item1-2}
# Phones contain materials that mineworkers extract from mines.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KEnv2RC),
  title = "Phones contain materials that mineworkers extract from mines.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "KEnv2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kgreen-wave1-edu-item2-2}
# The amount of data and WiFi you use does not affect CO2-emissions or the climate.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KEnv3RC),
  title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "KEnv3RC"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r kgreen-wave2-overall-2}
# 
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(KEnv2RC, KEnv3RC),
  title = "",
  questions = c("KEnv2RC", "KEnv3RC"),
  question_labels = c("Phones contain materials that mineworkers extract from mines.", "The amount of data and WiFi you use does not affect CO2-emissions or the climate."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kgreen-wave2-age-item1-2}
# Phones contain materials that mineworkers extract from mines.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KEnv2RC),
  title = "Phones contain materials that mineworkers extract from mines.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "KEnv2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kgreen-wave2-age-item2-2}
# The amount of data and WiFi you use does not affect CO2-emissions or the climate.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KEnv3RC),
  title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "KEnv3RC"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kgreen-wave2-gender-item1-2}
# Phones contain materials that mineworkers extract from mines.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KEnv2RC),
  title = "Phones contain materials that mineworkers extract from mines.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "KEnv2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kgreen-wave2-gender-item2-2}
# The amount of data and WiFi you use does not affect CO2-emissions or the climate.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KEnv3RC),
  title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "KEnv3RC"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kgreen-wave2-edu-item1-2}
# Phones contain materials that mineworkers extract from mines.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KEnv2RC),
  title = "Phones contain materials that mineworkers extract from mines.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "KEnv2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kgreen-wave2-edu-item2-2}
# The amount of data and WiFi you use does not affect CO2-emissions or the climate.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KEnv3RC),
  title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "KEnv3RC"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kgreen-overtime-overall-item1-2}
# Phones contain materials that mineworkers extract from mines.
result <- create_timeline(
  data = data,
  title = "Phones contain materials that mineworkers extract from mines.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "KEnv2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kgreen-overtime-overall-item2-2}
# The amount of data and WiFi you use does not affect CO2-emissions or the climate.
result <- create_timeline(
  data = data,
  title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "KEnv3RC"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kgreen-overtime-age-item1-2}
# Phones contain materials that mineworkers extract from mines.
result <- create_timeline(
  data = data,
  title = "Phones contain materials that mineworkers extract from mines.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KEnv2RC",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kgreen-overtime-age-item2-2}
# The amount of data and WiFi you use does not affect CO2-emissions or the climate.
result <- create_timeline(
  data = data,
  title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KEnv3RC",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kgreen-overtime-gender-item1-2}
# Phones contain materials that mineworkers extract from mines.
result <- create_timeline(
  data = data,
  title = "Phones contain materials that mineworkers extract from mines.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KEnv2RC",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kgreen-overtime-gender-item2-2}
# The amount of data and WiFi you use does not affect CO2-emissions or the climate.
result <- create_timeline(
  data = data,
  title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KEnv3RC",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r kgreen-overtime-edu-item1-2}
# Phones contain materials that mineworkers extract from mines.
result <- create_timeline(
  data = data,
  title = "Phones contain materials that mineworkers extract from mines.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KEnv2RC",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r kgreen-overtime-edu-item2-2}
# The amount of data and WiFi you use does not affect CO2-emissions or the climate.
result <- create_timeline(
  data = data,
  title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KEnv3RC",
  group_var = "Education"
)

result
```


:::


:::


:::

## {{< iconify ph clipboard-text >}} Green Performance


ADD TEXT BEFORE TABSET


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-green-wave1-overall-2}
# 
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(PSGDS1_1, PSGDS1_2, PSGDS1_3, PSGDS1_4, PSGDS1_5, PSGDS1_6, PSGDS1_7, PSGDS1_8, PSGDS1_9),
  title = "",
  questions = c("PSGDS1_1", "PSGDS1_2", "PSGDS1_3", "PSGDS1_4", "PSGDS1_5", "PSGDS1_6", "PSGDS1_7", "PSGDS1_8", "PSGDS1_9"),
  question_labels = c("Clean mailbox", "Use sustainable search engines", "Avoid unnecessary Cloud storage", "Turn down screen brightness", "Use sleep mode", "Close unused phone apps", "Recycle devices", "Repair before replacing", "None of these actions"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-wave1-age-item1-2}
# Clean mailbox
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_1),
  title = "Clean mailbox",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-wave1-age-item2-2}
# Use sustainable search engines
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_2),
  title = "Use sustainable search engines",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-wave1-age-item3-2}
# Avoid unnecessary Cloud storage
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_3),
  title = "Avoid unnecessary Cloud storage",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-wave1-age-item4-2}
# Turn down screen brightness
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_4),
  title = "Turn down screen brightness",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-wave1-age-item5-2}
# Use sleep mode
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_5),
  title = "Use sleep mode",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-wave1-age-item6-2}
# Close unused phone apps
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_6),
  title = "Close unused phone apps",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-wave1-age-item7-2}
# Recycle devices
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_7),
  title = "Recycle devices",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-wave1-age-item8-2}
# Repair before replacing
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_8),
  title = "Repair before replacing",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_8"
)

result
```


###### item9


```{r perf-green-wave1-age-item9-2}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_9),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_9"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-wave1-gender-item1-2}
# Clean mailbox
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_1),
  title = "Clean mailbox",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-wave1-gender-item2-2}
# Use sustainable search engines
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_2),
  title = "Use sustainable search engines",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-wave1-gender-item3-2}
# Avoid unnecessary Cloud storage
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_3),
  title = "Avoid unnecessary Cloud storage",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-wave1-gender-item4-2}
# Turn down screen brightness
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_4),
  title = "Turn down screen brightness",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-wave1-gender-item5-2}
# Use sleep mode
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_5),
  title = "Use sleep mode",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-wave1-gender-item6-2}
# Close unused phone apps
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_6),
  title = "Close unused phone apps",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-wave1-gender-item7-2}
# Recycle devices
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_7),
  title = "Recycle devices",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-wave1-gender-item8-2}
# Repair before replacing
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_8),
  title = "Repair before replacing",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_8"
)

result
```


###### item9


```{r perf-green-wave1-gender-item9-2}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_9),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_9"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-wave1-edu-item1-2}
# Clean mailbox
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_1),
  title = "Clean mailbox",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-wave1-edu-item2-2}
# Use sustainable search engines
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_2),
  title = "Use sustainable search engines",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-wave1-edu-item3-2}
# Avoid unnecessary Cloud storage
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_3),
  title = "Avoid unnecessary Cloud storage",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-wave1-edu-item4-2}
# Turn down screen brightness
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_4),
  title = "Turn down screen brightness",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-wave1-edu-item5-2}
# Use sleep mode
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_5),
  title = "Use sleep mode",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-wave1-edu-item6-2}
# Close unused phone apps
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_6),
  title = "Close unused phone apps",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-wave1-edu-item7-2}
# Recycle devices
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_7),
  title = "Recycle devices",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-wave1-edu-item8-2}
# Repair before replacing
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_8),
  title = "Repair before replacing",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_8"
)

result
```


###### item9


```{r perf-green-wave1-edu-item9-2}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_9),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_9"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-green-wave2-overall-2}
# 
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(PSGDS1_1, PSGDS1_2, PSGDS1_3, PSGDS1_4, PSGDS1_5, PSGDS1_6, PSGDS1_7, PSGDS1_8, PSGDS1_9),
  title = "",
  questions = c("PSGDS1_1", "PSGDS1_2", "PSGDS1_3", "PSGDS1_4", "PSGDS1_5", "PSGDS1_6", "PSGDS1_7", "PSGDS1_8", "PSGDS1_9"),
  question_labels = c("Clean mailbox", "Use sustainable search engines", "Avoid unnecessary Cloud storage", "Turn down screen brightness", "Use sleep mode", "Close unused phone apps", "Recycle devices", "Repair before replacing", "None of these actions"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-wave2-age-item1-2}
# Clean mailbox
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_1),
  title = "Clean mailbox",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-wave2-age-item2-2}
# Use sustainable search engines
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_2),
  title = "Use sustainable search engines",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-wave2-age-item3-2}
# Avoid unnecessary Cloud storage
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_3),
  title = "Avoid unnecessary Cloud storage",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-wave2-age-item4-2}
# Turn down screen brightness
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_4),
  title = "Turn down screen brightness",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-wave2-age-item5-2}
# Use sleep mode
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_5),
  title = "Use sleep mode",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-wave2-age-item6-2}
# Close unused phone apps
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_6),
  title = "Close unused phone apps",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-wave2-age-item7-2}
# Recycle devices
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_7),
  title = "Recycle devices",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-wave2-age-item8-2}
# Repair before replacing
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_8),
  title = "Repair before replacing",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_8"
)

result
```


###### item9


```{r perf-green-wave2-age-item9-2}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_9),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_9"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-wave2-gender-item1-2}
# Clean mailbox
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_1),
  title = "Clean mailbox",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-wave2-gender-item2-2}
# Use sustainable search engines
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_2),
  title = "Use sustainable search engines",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-wave2-gender-item3-2}
# Avoid unnecessary Cloud storage
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_3),
  title = "Avoid unnecessary Cloud storage",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-wave2-gender-item4-2}
# Turn down screen brightness
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_4),
  title = "Turn down screen brightness",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-wave2-gender-item5-2}
# Use sleep mode
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_5),
  title = "Use sleep mode",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-wave2-gender-item6-2}
# Close unused phone apps
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_6),
  title = "Close unused phone apps",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-wave2-gender-item7-2}
# Recycle devices
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_7),
  title = "Recycle devices",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-wave2-gender-item8-2}
# Repair before replacing
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_8),
  title = "Repair before replacing",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_8"
)

result
```


###### item9


```{r perf-green-wave2-gender-item9-2}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_9),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_9"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-wave2-edu-item1-2}
# Clean mailbox
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_1),
  title = "Clean mailbox",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-wave2-edu-item2-2}
# Use sustainable search engines
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_2),
  title = "Use sustainable search engines",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-wave2-edu-item3-2}
# Avoid unnecessary Cloud storage
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_3),
  title = "Avoid unnecessary Cloud storage",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-wave2-edu-item4-2}
# Turn down screen brightness
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_4),
  title = "Turn down screen brightness",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-wave2-edu-item5-2}
# Use sleep mode
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_5),
  title = "Use sleep mode",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-wave2-edu-item6-2}
# Close unused phone apps
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_6),
  title = "Close unused phone apps",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-wave2-edu-item7-2}
# Recycle devices
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_7),
  title = "Recycle devices",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-wave2-edu-item8-2}
# Repair before replacing
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_8),
  title = "Repair before replacing",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_8"
)

result
```


###### item9


```{r perf-green-wave2-edu-item9-2}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_9),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_9"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-overtime-overall-item1-2}
# Clean mailbox
result <- create_timeline(
  data = data,
  title = "Clean mailbox",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-overtime-overall-item2-2}
# Use sustainable search engines
result <- create_timeline(
  data = data,
  title = "Use sustainable search engines",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-overtime-overall-item3-2}
# Avoid unnecessary Cloud storage
result <- create_timeline(
  data = data,
  title = "Avoid unnecessary Cloud storage",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-overtime-overall-item4-2}
# Turn down screen brightness
result <- create_timeline(
  data = data,
  title = "Turn down screen brightness",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-overtime-overall-item5-2}
# Use sleep mode
result <- create_timeline(
  data = data,
  title = "Use sleep mode",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-overtime-overall-item6-2}
# Close unused phone apps
result <- create_timeline(
  data = data,
  title = "Close unused phone apps",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-overtime-overall-item7-2}
# Recycle devices
result <- create_timeline(
  data = data,
  title = "Recycle devices",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-overtime-overall-item8-2}
# Repair before replacing
result <- create_timeline(
  data = data,
  title = "Repair before replacing",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_8"
)

result
```


###### item9


```{r perf-green-overtime-overall-item9-2}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_9"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-overtime-age-item1-2}
# Clean mailbox
result <- create_timeline(
  data = data,
  title = "Clean mailbox",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_1",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-overtime-age-item2-2}
# Use sustainable search engines
result <- create_timeline(
  data = data,
  title = "Use sustainable search engines",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_2",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-overtime-age-item3-2}
# Avoid unnecessary Cloud storage
result <- create_timeline(
  data = data,
  title = "Avoid unnecessary Cloud storage",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_3",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-overtime-age-item4-2}
# Turn down screen brightness
result <- create_timeline(
  data = data,
  title = "Turn down screen brightness",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_4",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-overtime-age-item5-2}
# Use sleep mode
result <- create_timeline(
  data = data,
  title = "Use sleep mode",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_5",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-overtime-age-item6-2}
# Close unused phone apps
result <- create_timeline(
  data = data,
  title = "Close unused phone apps",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_6",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-overtime-age-item7-2}
# Recycle devices
result <- create_timeline(
  data = data,
  title = "Recycle devices",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_7",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-overtime-age-item8-2}
# Repair before replacing
result <- create_timeline(
  data = data,
  title = "Repair before replacing",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_8",
  group_var = "AgeGroup"
)

result
```


###### item9


```{r perf-green-overtime-age-item9-2}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_9",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-overtime-gender-item1-2}
# Clean mailbox
result <- create_timeline(
  data = data,
  title = "Clean mailbox",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_1",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-overtime-gender-item2-2}
# Use sustainable search engines
result <- create_timeline(
  data = data,
  title = "Use sustainable search engines",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_2",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-overtime-gender-item3-2}
# Avoid unnecessary Cloud storage
result <- create_timeline(
  data = data,
  title = "Avoid unnecessary Cloud storage",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_3",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-overtime-gender-item4-2}
# Turn down screen brightness
result <- create_timeline(
  data = data,
  title = "Turn down screen brightness",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_4",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-overtime-gender-item5-2}
# Use sleep mode
result <- create_timeline(
  data = data,
  title = "Use sleep mode",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_5",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-overtime-gender-item6-2}
# Close unused phone apps
result <- create_timeline(
  data = data,
  title = "Close unused phone apps",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_6",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-overtime-gender-item7-2}
# Recycle devices
result <- create_timeline(
  data = data,
  title = "Recycle devices",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_7",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-overtime-gender-item8-2}
# Repair before replacing
result <- create_timeline(
  data = data,
  title = "Repair before replacing",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_8",
  group_var = "geslacht"
)

result
```


###### item9


```{r perf-green-overtime-gender-item9-2}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_9",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-overtime-edu-item1-2}
# Clean mailbox
result <- create_timeline(
  data = data,
  title = "Clean mailbox",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_1",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-overtime-edu-item2-2}
# Use sustainable search engines
result <- create_timeline(
  data = data,
  title = "Use sustainable search engines",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_2",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-overtime-edu-item3-2}
# Avoid unnecessary Cloud storage
result <- create_timeline(
  data = data,
  title = "Avoid unnecessary Cloud storage",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_3",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-overtime-edu-item4-2}
# Turn down screen brightness
result <- create_timeline(
  data = data,
  title = "Turn down screen brightness",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_4",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-overtime-edu-item5-2}
# Use sleep mode
result <- create_timeline(
  data = data,
  title = "Use sleep mode",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_5",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-overtime-edu-item6-2}
# Close unused phone apps
result <- create_timeline(
  data = data,
  title = "Close unused phone apps",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_6",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-overtime-edu-item7-2}
# Recycle devices
result <- create_timeline(
  data = data,
  title = "Recycle devices",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_7",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-overtime-edu-item8-2}
# Repair before replacing
result <- create_timeline(
  data = data,
  title = "Repair before replacing",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_8",
  group_var = "Education"
)

result
```


###### item9


```{r perf-green-overtime-edu-item9-2}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_9",
  group_var = "Education"
)

result
```


:::


:::


:::
 

© 2025 Digital Competence Insights Dashboard - All Rights Reserved